'   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1 3   F e b   2 0 2 5 - 
 
 '   L o o p B a c k   t e s t   p r o g r a m   f o r   h a r d w a r e   v e r i f i c a t i o n 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '   V a l i d   O N L Y   f o r   U S B   t o   R S 2 3 2   9   o r   2 5   p i n   a d a p t e r 
 
 '   I n s t a l l a   j u m p e r   t o   g e n e r a t e   a   s h o r t   c i r c u i t   b e t w e e n 
 
 '   p i n   2   a n d   p i n   3 . 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 O p t i o n   S p e e d   9 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 C o n t r o l s   C l e a r T e x t B o x 
 
 S t r i n g   P o r t     =   1 7 
 
 N u m e r i c   B a u d s   =   9 2 1 6 0 0 
 
 C O M   O p e n   P o r t   B a u d s 
 
 C O M   D i s c a r d I n B u f f e r 
 
 s 1   =   C O M _ S t a t u s 
 
 s 1   =   " P o r t   s t a t u s :   "     +   P o r t   +   "   I S   "   +   s 1   +   "   a t   "   +   B a u d s   +   C R L F 
 
 s 1   =   s 1   +   " V a l i d   p o r t s :   "   +   C O M _ P o r t N a m e s   +   C R L F   +   C R L F 
 
 P r i n t   s 1 
 
 
 
 B u t t o n   1   L a b e l   " S e n d T o S e r i a l " 
 
 
 
 R e c e i v e L o o p 
 
 
 
 L a b e l   S e n d T o S e r i a l 
 
 	 F o r   v 1   =   2 0   T o   2 5 5 
 
 	 	 s 1   =   C h r ( v 1 ) 
 
 	 	 ' P r i n t   A s c ( s 1 )   +   "   " 
 
 	 	 C O M   W r i t e S t r i n g   s 1 
 
 	 N e x t 
 
 	 C O M   W r i t e S t r i n g   C R L F 
 
 R e t u r n 
 
 
 
 R e c e i v e L o o p 
 
 
 
 L a b e l   R e c e i v e L o o p 
 
 	 R e c e i v e F r o m S e r i a l 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 G o t o   R e c e i v e L o o p 
 
 
 
 L a b e l   R e c e i v e F r o m S e r i a l 
 
 	 S t r i n g   T e r m i n a t o r   =   C h r ( 1 3 ) + C h r ( 1 0 ) 
 
 	 S t r i n g   R e c e i v e d L i n e 
 
 	 S t r i n g   H e x L i n e 
 
 	 R e c e i v e d L i n e   =   C O M _ R e c e i v e U n t i l ( T e r m i n a t o r ) 
 
 	 I f   R e c e i v e d L i n e   < >   " " 
 
 	 	 H e x L i n e   =   " " 
 
 	 	 F o r   v 1   =   1   T o   L e n ( R e c e i v e d L i n e ) 
 
 	 	 	 H e x L i n e   =   H e x L i n e   +   R i g h t ( " 0 "   +   H e x ( A s c ( M i d ( R e c e i v e d L i n e ,   v 1 ) ) ) ,   2 )   +   "   " 
 
 	 	 N e x t 
 
 	 	 C o n t r o l s   C l e a r T e x t B o x 
 
 	 	 P r i n t   H e x L i n e   +   C R L F 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 
 
 ' B O O K M A R K S   
 
 
 
 ' E D I T E D L I N E S   2   8   0   8   7   1   1   3   5   7   6   8   1 1   9   2 7   1 0   
 
 
 
 ' W A T C H   d u m m y 
 
 ' W A T C H   d u m m y 
 
 